Next First em SP

como cria um for select em db firebird 1.5 de forma que eu receba a primeira linha carregue no into, receba a segunda carregue, pois da forma que eu fiz da um erro dzendo que o resultado foi mais de uma linha e desta forma não carrega do into

no exemplo abaixo tem 3 registros na data 10/10/2004, como carregar 1 por 1

for select campo1, campo2
where (data=´2004-10-10´)
order by ap.conta_movimentada
into :var1,:var2
do
begin
suspend;
end