get next object in list that is red

you could either:

use EachIn to iterate through the list and look for red ones (the first one you find would be the first in the list).

or:

have a separate list for each colour

or (if you're insane) have a separate type for each colour and then iterate with:

For Local ship:TRedShip = EachIn MyBigShipList
	print ship.name
Next

that would only select ships that inherited from the TRedShip type