Plot[Evaluate@Table[2 p + y, {p, 0, 1, 0.1}], {y, 0, 4},
 PlotTheme -> "Monochrome"]

PlotStyle -> (Dashing[#]& /@ Table[i, {i, .01, .09, .01}])

{Dashing[{.02, .05, .01}],Dashing[.04], Dashing[{.01, .02, .01, .06}],...}