Bulk insert data into the table

Declare
i Number :=1;
Begin
While(i<=1000)Loop

    inster into statements, wherein a value of an incremental manner + i

i: = i + 1; - non-cyclic can not be used for "I ++"
End Loop;
End;