Здравствуйте, Владимир!
В итоге обсуждения предлагается вариант решения задачи:
1. Перенос из Memo в Excel производить построчно
2. Определить процедуру разбивки текста в Memo на строки при превышении 90 символов при ручном вводе
3. Определить процедуру разбивки текста в Memo на строки при превышении 90 символов при вставке текста из буфера обмена.

Исходные тексты процедур размещаю в приложении

Приложение:
1. Часть процедуры переноса в Excel:
...
for i:=0 to Memo1.Lines.Count-1 do
begin
Ex.ActiveWorkBook.WorkSheets[L3].Cells[i+8, 2].value:= memo1.Lines[i];
end;
...
2. Процедура ручного ввода в Memo
procedure TForm1.Memo1Change(Sender: TObject);
var
s: string;

begin
s:= RightStr(Memo1.Lines[Memo1.Lines.count - 1], 1);
edit1.Text:= IntToStr(length(Memo1.Lines[Memo1.Lines.count - 1]));
if (s = ' ') and (length(Memo1.Lines[Memo1.Lines.count - 1]) > 90) then
begin
Memo1.Lines[Memo1.Lines.count - 1]:= leftstr(Memo1.Lines[Memo1.Lines.count - 1], Length(Memo1.Lines[Memo1.Lines.count - 1]) - 1);
Memo1.Lines.Add(' ');
end;
end;

3. Процедура вставки текста из буфера обмена.
При вставке текста он разбивается по строкам.

procedure TForm1.Button2Click(Sender: TObject);
var
i, j: integer;
str_list: TMemo;
s, s_right: string;

begin
Memo1.Clear;
str_list:= TMemo.Create(Form1); // формируем динамический невидимый объект
str_list.Visible:= False;
str_list.Parent:= Form1;
str_list.PasteFromClipboard;
for i:=0 to str_list.Lines.Count do
begin
for j:= 1 to Length(str_list.Lines[i]) do // посимвольно переносим в основной элемент Memo и применяем алгоритм разбивки по строкам
begin
s:= str_list.Lines[i][j];
Memo1.Text:= Memo1.Text + s;
s_right:= RightStr(Memo1.Lines[Memo1.Lines.count - 1], 1);
edit1.Text:= IntToStr(length(Memo1.Lines[Memo1.Lines.count - 1]));
if (s_right = ' ') and (length(Memo1.Lines[Memo1.Lines.count - 1]) > 90) then
begin
Memo1.Lines[Memo1.Lines.count - 1]:= leftstr(Memo1.Lines[Memo1.Lines.count - 1], Length(Memo1.Lines[Memo1.Lines.count - 1]) - 1);
Memo1.Lines.Add(' ');
end;
end;
end;
str_list.Clear; // очищаем динамический элемент
str_list.Free; // освобождаем память
end;