Don't forget to increment your counter:
While oResponse.outputControl.Items(i) <> Nothing
'Do something
i += 1
End While
and if this is a reference type (you didn't say, but it probably is), you can't compare it to Nothing with the <> operator:
While oResponse.outputControl.Items(i) IsNot Nothing
'Do something
i += 1
End While
But maybe what you really want is a For Each loop:
For Each Item In oResponse.outputControl.Items
'Do Something
Next Item
And one more thing: what's with the hungarian wart in the oResponse variable? That style is no longer recommended, and Microsoft now even specifically recommends against it. VB.Net also has a feature called "Default properties" that just might make this even simpler. Pulling it all together (now including the ListItem type from your comment above):
For Each Item As ListItem In Response.outputControl
'Do Something
Next Item