Plot[ Table[a*x,{a,1,4,1/2}] , {x,0,4}]