[roman]

Te puedes hacer una rutina que haga lo que quieres, algo como:

Código Delphi [-]
var
  I: Integer;
  Line: String;

begin
  for I := 0 to ListBox1.Count - 1 do
  begin
    if Line = ''
      then Line := Line + ListBox1.Items[i]
      else Line := Line + #9 + ListBox1.Items[i];

    if (I + 1) mod 3 = 0 then
    begin
      Memo1.Lines.Add(Line);
      Line := '';
    end;
  end;
end;

Pero no entiendo por qué has de enviarlo línea por línea. ¿No puedes simplemente mandar ListBox.Items.Text de una sóla vez?

// Saludos