Do[
 Do[
  Do[

   nevp[k][l][j] =
   Table[{0.125 +
   0.25*i , [Alpha]p[i][k][l][j] + [Alpha]back[
    0.125 + 0.25*i]}, {i, 1, emax - 1}];
   np[k][l][j] = Interpolation[nevp[k][l][j]];
   Mp[k][l][j] =
   Plot[np[k][l][j][i], {i, 0.5, 8},
  PlotStyle -> Directive[Opacity[0.1], Gray]];

   , {k, kmin, kmax, kpass}]
  , {l, lmin, lmax, lpass}]
 , {j, min, max, pass}]