Use a Cursor.

DECLARE
CURSOR cursor_name IS Select ... ;
var1 ...
var2 ...

BEGIN
OPEN cursor_name;
LOOP
FETCH cursor_name INTO var1, var2, ....
.
.
.
END LOOP;
CLOSE cursor_name;
END;


F.