Looping a solver function

I need to turn this macro into a loop

SolverOk SetCell:="$P$2", MaxMinVal:=2, ValueOf:=0, ByChange:="$M$2:$O$2", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
    SolverOk SetCell:="$P$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$M$3:$O$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
    SolverOk SetCell:="$P$4", MaxMinVal:=2, ValueOf:=0, ByChange:="$M$4:$O$4", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve

How might i be bale to do that ?

Moderator's Edit: You need to use code tags whenever you post code in a post. You can either select the code and click on the # button above or type [code] before your code and [/code] after it.