You could use two cursors...
I.E.

Select ...
from..
where i=firstsomthing into cursor MyCursor

use dbf("MyCursor") again in 0 alias mycursor2

local i
...
Do while i>1

Select ...
from..
where i=somthing into cursor MyCursor
select mycursor
scatter memvar memo
select mycursor2
append blank
gather memvar memo
Enddo

select mycursor2

...

or something along those lines...
Hope that helps.